#!/usr/bin/env tclsh

#--------------------------------------------------     
#          ____                    ____
#  Vin ---|____|----to adc ch-----|____|----GND
#           R1                       R2
#  让r_table中的元素为 每个通道的 {R1 R2} 组合得到的元素
#---------------------------------------------------    
set r_table { 
    {1 1}  
    {2 3}  
    {2 0}
    {0 2}
}
proc ADC7953 { r_table} {
    set len [ llength $r_table]
    puts "ADC 电压转换列表"
    for { set i 0 } { $i<$len } {incr i} {
        set para [ lindex $r_table $i] 
        set r1 [expr double([lindex $para 0])]
        set r2 [expr double([lindex $para 1])]
        set ad_data 0x1000 
        if { $r2 == 0 } {
            puts "   ADC ch$i = [expr 2.5*$ad_data/4096] V"
        } else {
            puts "   ADC ch$i = [expr ($r1 + $r2)/$r2*2.5*$ad_data/4096] V"
        } 
    }
}


ADC7953 $r_table